home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_353 / aztecarp / glue / toupper.asm < prev    next >
Assembly Source File  |  1992-05-06  |  196b  |  19 lines
  1.     section    text,code
  2.  
  3.     xref    _ArpBase
  4.     xdef    _Toupper
  5.  
  6. _Toupper:
  7.     move.l    a6,-(sp)
  8.     move.l    _ArpBase,a6
  9.     IF    INT16
  10.     move.w    8(sp),d0
  11.     ELSE
  12.     move.l    8(sp),d0
  13.     ENDC
  14.     jsr    -534(a6)
  15.     move.l    (sp)+,a6
  16.     rts
  17.  
  18.     end
  19.